home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinNT Login Window Username.xpl < prev    next >
Text File  |  2003-06-10  |  2KB  |  66 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH 1"="Startup/Shutdown\Startup\Windows NT/2K/XP\31) Inside Login Window"
  5. "NAME"="Login Window: Last User"
  6. "VERSION"="1.05"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="0101011"
  9. "TEXT 1"="Remember last user name inside Login Window"
  10. "DESCRIPTION 1"="Activate "Remember last user name" if the name of the last user using this computer should be displayed in the login window (default). If you don't want this, deactivate the option."
  11. "AUTHOR"="Xteq Systems"
  12. "CONTACTURL"="http://www.xteq.com"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"="Thanks to CptSiskoX for his help!"
  15. "COMMENT 2"=""Remember last user name" setting supplied by Marco Schelling (Marco.Schelling@simac.nl)."
  16. "COMMENT 3"="Thanks to Luhman, Rick [rlluhman@iastate.edu] for the W2K fix."
  17. "COMMENT 4"="Thanks to G÷ran ┼berg [abbe.ema@home.se] for the XP fix."
  18.  
  19.  
  20. sV=""
  21.  
  22. sV_NT="HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\DontDisplayLastUserName"
  23. sV_2K="HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\DontDisplayLastUserName"
  24.  
  25.  
  26. Sub Plugin_Initialize 
  27.  if GetWinVer=2 then
  28.     sV=sV_NT
  29.  else
  30.     sV=sV_2K
  31.  end if
  32.  
  33.  i=RegReadValue(sV)
  34.  if i<>1 then SetUIElement 1,true
  35. End Sub
  36.  
  37. Sub Plugin_CheckData(ElementIndex)
  38. End Sub
  39.  
  40. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  41.  iDataType=1
  42.  
  43.  if GetWinVer=2 then
  44.     iDataType=1
  45.  else
  46.     iDataType=2
  47.  end if
  48.  
  49.  
  50.  b=GetUIElement(1)
  51.  if b=true then
  52.     Call RegWriteValue(sV,"0",iDataType)
  53.  else
  54.     Call RegWriteValue(sV,"1",iDataType)
  55.  end if
  56.  
  57.  
  58.  Call Logoff
  59. End Sub
  60.  
  61. Sub Plugin_Terminate 
  62. End Sub
  63.  
  64.  
  65.  
  66.